#
#      ZX type-writer.
#  -----------------------
#  --- zXbASIC EXAMPLE ---
#  
#        TYPED-IN BY
#          XAVSNAP
#  
#
# PROBLEMS:
#
# .THE D_FILE SEEM CORRUPT WHILE
#  USING ASM CODES.
#
# ordi NUMBER 4 PAGE 33/34/35
#
#          -=OoO=-
#
# Clear Sceen : Shift+ new line
# Home        : Shift+ space
# Grafics     : Shift+ 9
# insert      : Shift+ 0
# Delete      : 0
# Scroll up/dn: 3 or 4.
# Save screen : Shift+ 4
# Load screen : Shift+ 3
#
# Copy : Type new-line to the screen bottom.
#        Press Z to copy the screen
#           Or C to continue.
#
1 REM [HEX:\
CD,BB,02,44,4D,51,14,CA,82,4\
0,CD,BD,07,7E,FE,1D,DA,82,40,FE,26,38,03,C3,82,4\
0,DE,1B,2A,12,40,11,17,03,3D,C8,19,18,FB,2A,0C,4\
0,23,01,0E,00,11,E6,43,E5,ED,B0,EB,D1,01,0E,00,E\
D,B0,C9,2A,0E,40,5E,7E,F5,E5,CD,BB,02,44,4D,E1,F\
1,EE,80,77,51,14,28,F0,73,CD,BD,07,7E,FE,79,CA,1\
2,42,FE,1F,CA,69,42,FE,0C,CA,58,\
41,FE,DF,CA,2B,42,FE,DE,\
CA,4A,42,FE,74,CA,18,42,7E,FE,76,CA,01,42,FE,77,\
CA,E0,41,FE,1C,CA,C0,41,FE,70,CA,A0,41,FE,71,CA,\
80,41,FE,72,28,57,FE,73,28,4A,FE,20,CA,A2,42,21,\
E0,42,5F,16,00,19,4E,3A,21,40,81,D7,2A,0E,40,7E,\
FE,76,28,02,18,06,23,22,0E,40,18,F0,ED,5B,10,40,\
2A,0E,40,ED,52,D0,2A,0E,40,7E,57,EE,\
80,01,58,1B,77,0B,78,B1,\
20,FB,72,C3,BE,40,2A,0C,40,23,22,0E,40,C3,BE,40,\
2A,0E,40,23,22,0E,40,18,BF,2A,0E,40,2B,22,0E,40,\
7E,FE,76,28,02,18,B1,2B,22,0E,40,C3,2A,41,2A,10,\
40,11,21,00,ED,52,EB,2A,0E,40,ED,52,38,03,C3,3A,\
41,2A,0E,40,11,21,00,19,22,0E,40,C3,3A,41,2A,0C,\
40,11,21,00,19,ED,5B,0E,40,ED,52,38,\
03,C3,3A,41,2A,0E,40,11,\
20,00,ED,52,22,0E,40,C3,3A,41,2A,10,40,2B,ED,5B,\
0E,40,E5,ED,52,E5,C1,E1,16,00,2B,7E,FE,76,28,02,\
72,57,0B,78,B1,20,F3,C3,3A,41,2A,10,40,2B,ED,5B,\
0E,40,D5,ED,52,E5,C1,E1,16,00,2B,23,7E,FE,76,28,\
02,72,57,0B,78,B1,20,F3,C3,3A,41,2A,0E,40,23,7E,\
FE,76,28,02,18,F8,22,0E,40,C3,2A,41,\
CD,2A,0A,C3,2A,41,3A,21,\
40,EE,80,32,21,40,2A,0C,40,23,7E,EE,80,77,C3,2A,\
41,CD,A9,40,CD,82,40,E5,ED,5B,0C,40,13,D5,21,E6,\
43,01,0E,00,ED,B0,E1,D1,01,17,03,ED,B0,C3,2A,41,\
CD,A9,40,CD,82,40,E5,ED,5B,0C,40,13,D5,21,E6,43,\
01,0E,00,ED,B0,D1,E1,01,17,03,ED,B0,C3,2A,41,2A,\
0E,40,2B,7E,FE,76,28,02,18,F8,E5,11,\
22,00,19,ED,5B,10,40,EB,\
ED,52,28,02,18,04,E1,C3,2A,41,E5,C1,2A,10,40,2B,\
E5,11,21,00,ED,52,D1,ED,B8,E1,06,20,23,36,00,10,\
FB,C3,2A,41,2A,0E,40,2B,7E,FE,76,28,02,18,F8,23,\
E5,11,21,00,19,E5,ED,5B,10,40,1B,EB,ED,52,30,05,\
E1,E1,C3,2A,41,E5,C1,E1,D1,ED,B0,2A,10,40,2B,2B,\
7E,FE,76,CA,2A,41,36,00,18,F5,3C,3D]
#
2 REM [DEC:\
0,15,15,15,15,15,15,15,15\
,15,15,11,15 13 14 ,15 16 17\
,18 19 20 21 22 23 24 25 26\
,27 15 29 30 15 15 33 34 35\
,36 37 54 39 40 41 42 43 44\
,45 46 47 48 49 50 51 52 53\
,54 55 56 57 58 59 60 61 62\
,63 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,1 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 31 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,12 32 2 132 134 28 15 15 7\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15 15 15 15 15 15\
,15 15 15 15]
3 REM "             n.PAGE?(1-9)      "
4 REM ---------------------
5 REM  s.cRAINIC ET oRDI-5
6 REM ---------------------
7900 SLOW
7910 DIM B$(10,791)
7920 CLS
7930 POKE 16417,0
7940 LET B$(1)=B$(1)
7950 IF USR 16574 THEN
7960 LET A$=INKEY$
7970 IF A$="Z" THEN COPY
7980 IF A$="C" THEN GOTO 7920
# the stop had to be changed using shift+A character
7990 IF A$="STOP" THEN GOTO 7960
8999 STOP
9000 SAVE "TYPEWRITER"
9999 RUN